home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / Lupe.AmiCAD < prev    next >
Text File  |  1998-01-17  |  487b  |  24 lines
  1. /* Lupe.AmiCAD, Chez Corbin, 18 Janvier 1998, version 1.00 */
  2.  
  3. port=address()
  4. address command
  5. 'run' "c:Lupe F R GS JAS"
  6. do i=1 to 2000
  7.     i=i+1
  8. end
  9. address(port)
  10. 'STOFRONT'
  11. exit
  12.  
  13. /* Traitement des erreurs, interruption du programme */
  14. syntax:
  15. address (port)
  16. erreur=RC
  17. 'MESSAGE("Script Lupe.AmiCAD :"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  18. exit
  19.  
  20. error:
  21. address (port)
  22. 'MESSAGE("Script Lupe.AmiCAD :"+CHR(10)+"Erreur en ligne 'SIGL'")'
  23. exit
  24.